﻿Public Class xtf_LISTADOdocumento_

    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Tipo de Documento")
            dtt_DataTable.Columns.Add("Tipo")
            dtt_DataTable.Columns.Add("Número")
            dtt_DataTable.Columns.Add("Fecha")
            dtt_DataTable.Columns.Add("Estado")
            dtt_DataTable.Columns.Add("Razón Social")
            dtt_DataTable.Columns.Add("Condicion de I.V.A.")
            dtt_DataTable.Columns.Add("Numero Fiscal")
            dtt_DataTable.Columns.Add("Direccion")

            gdv_general.PopulateColumns(dtt_DataTable)

            Dim obj_documento_ As New cls_documento_
            If obj_documento_.CargarTodos Then
                For Each documento As cls_documento_ In obj_documento_.Items
                    AgregarItem(documento)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef documento As cls_documento_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow

        Row("Identificador (ID)") = documento.iddocumento
        Row("Tipo de Documento") = EnumDescription(documento.tipodocumento)
        Row("Tipo") = EnumDescription(documento.tipo)
        Row("Número") = Format(documento.puntoventa, "0000") & "-" & Format(documento.numero, "0000000000")
        Row("Fecha") = documento.fecha
        Row("Estado") = documento.estado
        Row("Razón Social") = documento.razonsocial
        Row("Condicion de I.V.A.") = documento.idcondicioniva
        Row("Numero Fiscal") = documento.numerofiscal
        Row("Direccion") = documento.direccion

        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1).Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef documento As cls_documento_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = documento.iddocumento
        ulg_row("Tipo de Documento") = EnumDescription(documento.tipodocumento)
        ulg_row("Tipo") = EnumDescription(documento.tipo)
        ulg_row("Número") = Format(documento.puntoventa, "0000") & "-" & Format(documento.numero, "0000000000")
        ulg_row("Fecha") = documento.fecha
        ulg_row("Estado") = documento.estado
        ulg_row("Razón Social") = documento.razonsocial
        ulg_row("Condicion de I.V.A.") = documento.idcondicioniva
        ulg_row("Numero Fiscal") = documento.numerofiscal
        ulg_row("Direccion") = documento.direccion
    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "010001002"
        PERMISOModificar = "010001003"
        PERMISOEliminar = "010001004"
        PERMISOImprimir = "010001005"
        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default

    End Sub

End Class